object ChooseUserState: TChooseUserState Left = 597 Top = 122 BorderIcons = [biSystemMenu] BorderStyle = bsDialog BorderWidth = 10 Caption = 'Wybierz stan uzytkownika' ClientHeight = 276 ClientWidth = 344 Color = 15724527 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Verdana' Font.Style = [] OldCreateOrder = False Position = poDesktopCenter OnShow = FormShow DesignSize = ( 344 276) PixelsPerInch = 96 TextHeight = 13 object Label: TLabel Left = 0 Top = 2 Width = 175 Height = 13 Caption = 'Wybierz stan uzytkownika:' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Verdana' Font.Style = [fsBold] ParentFont = False end object LabelDesc: TLabel Left = 0 Top = 180 Width = 32 Height = 13 Caption = 'Opis:' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Verdana' Font.Style = [fsBold] ParentFont = False end object LabelDescHistory: TLabel Left = 0 Top = 34 Width = 85 Height = 13 Caption = 'Lista stanow:' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Verdana' Font.Style = [fsBold] ParentFont = False end object ComboBox1: TComboBox Left = 190 Top = 0 Width = 153 Height = 21 Style = csDropDownList Ctl3D = False Font.Charset = EASTEUROPE_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Verdana' Font.Style = [] ItemHeight = 13 ParentCtl3D = False ParentFont = False TabOrder = 0 end object ListBox1: TListBox Left = 94 Top = 32 Width = 248 Height = 137 Ctl3D = True Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Verdana' Font.Style = [] ItemHeight = 13 ParentCtl3D = False ParentFont = False TabOrder = 1 OnClick = ListBox1Click end object ButtonOK: TButton Left = 128 Top = 249 Width = 75 Height = 25 Anchors = [akLeft, akBottom] Caption = 'OK' TabOrder = 2 OnClick = ButtonOKClick end object Memo1: TMemo Left = 53 Top = 176 Width = 289 Height = 66 MaxLength = 100 TabOrder = 3 end end